﻿Public Class GameTimeArgs

    Public Property ElapsedGameTime() As New TimeSpan
    Public Property IsRunningSlowly() As Boolean
    Public Property TotalGameTime() As New TimeSpan

    Public Sub New()
        MyBase.New()
    End Sub

#If WINDOWS Then
    Public Sub New(ByVal g As GameTime)
        Me.ElapsedGameTime = g.ElapsedGameTime
        Me.IsRunningSlowly = g.IsRunningSlowly
        Me.TotalGameTime = g.TotalGameTime
    End Sub

#ElseIf WINDOWS_PHONE Then

    Public Sub New(ByVal g As GameTimerEventArgs)
        Me.ElapsedGameTime = g.ElapsedTime
        Me.IsRunningSlowly = False
        Me.TotalGameTime = g.TotalTime
    End Sub
#End If

End Class